(gnus-background-mode): Set threshold for "light color"

at .6 of the total for white.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 04a32e039c0010f3a558252f93ff0d8d7fed9841..a759acfc3bc0e3e641f7721b3e08d36ea13e9fae 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -127,7 +127,7 @@ pounce directly on the real variables themselves.")
                    ((and (cdr (assq 'background-color params))
                          (< (apply '+ (x-color-values
                                        (cdr (assq 'background-color params))))
-                            (/ (apply '+ (x-color-values "white")) 3)))
+                            (* (apply '+ (x-color-values "white")) .6)))
                     'dark)
                    (t 'light)))
          (error 'light))